home *** CD-ROM | disk | FTP | other *** search
/ Easy Internet / Internet Training Corporation Easy Internet Rev21 (ITC).ISO / mac / DATA / 1020.scp < prev    next >
Text File  |  1997-08-20  |  653b  |  52 lines

  1. !
  2. @ANSWER
  3. @HANGUP
  4. EXIT 0
  5. !
  6. @ORIGINATE
  7. !
  8. CHRDELAY 1
  9. !
  10. @LABEL 10
  11. MATCHCLR
  12. MATCHSTR 1 11 "Username: "
  13. MATCHREAD 300
  14. NOTE "Connect script couldn't match \34Username: \34" 3
  15. JUMP 99
  16. !
  17. @LABEL 11
  18. PAUSE 1
  19. WRITE "^u\13"
  20. !
  21. @LABEL 12
  22. MATCHCLR
  23. MATCHSTR 1 13 "Password: "
  24. MATCHREAD 300
  25. NOTE "Connect script couldn't match \34Password: \34" 3
  26. JUMP 99
  27. !
  28. @LABEL 13
  29. IFSTR 12 14 ""
  30. PAUSE 1
  31. WRITE "^p\13"
  32. JUMP 15
  33. !
  34. @LABEL 14
  35. ASK 1 "Please enter password: "
  36. WRITE "^*\13"
  37. !
  38. @LABEL 15
  39. MATCHCLR
  40. MATCHSTR 1 90 " is "
  41. MATCHREAD 300
  42. NOTE "Connect script couldn't match \34 is \34" 3
  43. JUMP 99
  44. !
  45. @LABEL 90
  46. PAUSE 1
  47. EXIT 0
  48. !
  49. @LABEL 99
  50. PAUSE 60
  51. EXIT -6002 "Connection script failed."
  52.